    subroutine s     !<<<<<START
      print *, 'Yip'
    end subroutine   !<<<<<END
